; ; OVERVIEW.TXT -- subr to put corporate overview ; (c) Copyright 1990 Chris Butler ;video m set allpsdi off goto top all: set allpsdi on top: setrgb 0 50 50 50 1 ; lighten mainmenu before wipe setrgb 15 54 54 54 1 setrgb 3 40 40 40 setrgb 2 54 54 54 1 setrgb 3 10 10 10 1 setrgb 4 50 50 50 1 pnewbuf 1 ; wipe to clear gray screen psetbuf 1 ; color 4 clearscr psetbuf pfade 10 1 300 waitkey 100 pnewbuf 1 ; tile into buffer 1st psetbuf 1 ; (obviates 110KB file!) color 4 clearscr cload psdi25e.clp 1 0 0 tile 1 0 psetbuf pfade 20 1 ; sparkle in tiled bgrnd pfree 1 cload ovrvuln1.clp 1 1 0 ; each bullet line cload ovrvuln2.clp 2 1 0 cload ovrvuln3.clp 3 1 0 cload ovrvuln4.clp 4 1 0 cload ovrvuln5.clp 5 1 0 cload ovrvuln6.clp 6 1 0 cload ovrvuln7.clp 7 1 0 waitkey 100 cfade 13 56 425 1 40 150 cfade 1 56 345 2 100 150 cfade 1 56 260 3 100 150 cfade 1 56 185 4 100 150 cfade 1 56 100 5 100 0 cfade 1 56 50 6 100 0 cfade 1 56 15 7 100 0 cfree 1 2 3 4 5 6 7 note 100 10 10 waitkey 500 ; CONTINUE BUTTON !! if @allpsdi==on linkit link master.txt entry_2 linkit: link ibmbp.txt all exit